|   File        : Desktop
|   Date        : 04-Jun-00
|   Description : Script to load and configure PsiFS from within the desktop.
|
|   Copyright  1998, 1999, 2000 Alexander Thoukydides
|
|   This program is free software; you can redistribute it and/or
|   modify it under the terms of the GNU General Public License
|   as published by the Free Software Foundation; either version 2
|   of the License, or (at your option) any later version.
|
|   This program is distributed in the hope that it will be useful,
|   but WITHOUT ANY WARRANTY; without even the implied warranty of
|   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|   GNU General Public License for more details.
|
|   You should have received a copy of the GNU General Public License
|   along with this program; if not, write to the Free Software
|   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

| Check that there is sufficient memory to run
WimpSlot -min 248K -max 248K

| Directory to contain scrap files
If "<Wimp$ScrapDir>" = "" Then Error 0 Scrap folder could not be found. Please double-click on a copy of !Scrap and try again.
If "<Wimp$Scrap>" = "" Then Set Wimp$Scrap <Wimp$ScrapDir>.ScrapFile
Set PsiFSScrap$Dir <Wimp$ScrapDir>.PsiFS
Set PsiFSScrap$Path <PsiFSScrap$Dir>.

| Directory to contain configuration files
If "<Choices$Write>" = "" Then Set PsiFSConfig$Dir <PsiFS$Dir>.Config Else Set PsiFSConfig$Dir <Choices$Write>.PsiFS
Set PsiFSConfig$Path <PsiFS$Dir>.Config.
If "<Choices$Write>" <> "" Then Set PsiFSConfig$Path <Choices$Write>.PsiFS.,<PsiFSConfig$Path>
If "<Choices$Path>" <> "" Then Set PsiFSConfig$Path Choices:PsiFS.,<PsiFSConfig$Path>

| Directory containing file converters
Set PsiFSConverters$Dir <PsiFS$Dir>.Converters

| Load the PsiFS module if required
RMEnsure PsiFS 1.30 Run <PsiFS$Dir>.Resources.Load
RMEnsure PsiFS 1.30 Error 0 Failed to load the PsiFS module

| Ensure that the correct versions of system modules are loaded
Run <PsiFS$Dir>.Resources.Ensure MessageTrans 0.27 MsgTrans
Run <PsiFS$Dir>.Resources.Ensure ColourTrans  0.52 Colours
Run <PsiFS$Dir>.Resources.Ensure Toolbox      1.45 Toolbox.Toolbox
Run <PsiFS$Dir>.Resources.Ensure DCS          1.08 Toolbox.DCS_Quit
Run <PsiFS$Dir>.Resources.Ensure Iconbar      1.18 Toolbox.IconBar
Run <PsiFS$Dir>.Resources.Ensure Menu         0.35 Toolbox.Menu
Run <PsiFS$Dir>.Resources.Ensure ProgInfo     0.15 Toolbox.ProgInfo
Run <PsiFS$Dir>.Resources.Ensure SaveAs       0.16 Toolbox.SaveAs
Run <PsiFS$Dir>.Resources.Ensure Window       1.59 Toolbox.Window

| Check again that there is sufficient memory to run
WimpSlot -min 248K -max 248K

| Start the desktop filer
Run <PsiFS$Dir>.Resources.!RunImage 2>null: